Softdisk G-S 156/SGDS 156.2mg/SDGS.156/A/COBY.CAP

Applesoft BASIC Source Code | 1994-08-14 | 407 b | 9 lines | [FC] Applesoft BASIC Program (0x0801)

1 D$ =  CHR$(4): PRINT  CHR$(21): PRINT D$"prefix": INPUT P$: ONERR  GOTO 70
10  PRINT D$"bloadsoftdisk": PRINT D$"prefix"P$
20 A = 768: POKE A,2:A = A +1
30 NM$ = "Coby's Dreamcap":V$ = "v1.0":RV$ = "v1.0b3":PN$ = "By: Paul Connelly"
40 X$ = NM$: GOSUB 90:X$ = V$: GOSUB 90:X$ = RV$: GOSUB 90:X$ = PN$: GOSUB 90
50  POKE A,170
60  CALL 6 *4096
70  PRINT  CHR$(21): HGR2 : TEXT : HOME : VTAB 10: HTAB 10: PRINT "Loading...": POKE 103,1: POKE 104,96: POKE 24576,0: PRINT D$;"-coby.prg"
90  POKE A,170:A = A +1: POKE A,(35 - LEN(X$))/2:A = A +1: FOR I = 1 TO  LEN(X$): POKE A +I -1, ASC( MID$ (X$,I,1)): NEXT :A = A + LEN(X$): RETURN